program main
    implicit none
    integer :: A,B,C
    data A,B,C / B'110010',O'62',Z'32' /
    write(*,*) 'A:',A
    write(*,*) 'B:',B
    write(*,*) 'C:',C
end program
